home *** CD-ROM | disk | FTP | other *** search
/ ADA Programming Guide / ADA Programming Guide.iso / ada_a9x / excp.ada < prev    next >
Text File  |  1996-01-30  |  401b  |  16 lines
  1. WITH Ada.TEXT_IO; USE Ada.TEXT_IO;
  2.  
  3. PROCEDURE Exception_Test IS
  4.     I : Integer := 0;
  5. BEGIN
  6.     I := 4 / I;
  7.     Put_Line(Integer'IMAGE(I));     
  8. EXCEPTION
  9.     WHEN Program_Error | Constraint_Error =>    
  10.         Put_Line("PROGRAM_ERROR OR CONSTRAINT_ERROR.");
  11.     WHEN The_Error : OTHERS =>
  12.         Put(" FATAL ERROR: ");
  13.         Put(SYSTEM.EXCEPTIONS.EXCEPTION_NAME(The_Error));
  14.         Put_Line(".");
  15.         RAISE;
  16. END Exception_Test;